home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOC.DIR / 00004_Script_setContentsButtons < prev    next >
Text File  |  1995-11-21  |  8KB  |  155 lines
  1. on setContentsButtons
  2.   -- birth triplets, parameter after "sbt" must be ascending order
  3.   put quote into q
  4.   global gCBL, gMBL, gOBL,gO, gONBL,gOSBL, gOQBL,gOOBL,gOGBL,gPBL, gSBL, gTBL, gUBL
  5.   global gContRetrace
  6.   
  7.   
  8. --  set gContRetrace to [:]
  9. --  set sc = script "sbc-retrace"
  10. --  addprop gContRetrace, 16,[sc,16,"CTR.PIC","CTP.PIC","trace "&q&""e&"&q&"TOC"&q&""e"] 
  11. --  set sc = script "sbc"
  12. --  addprop gContRetrace, 17,[sc,17,"CCR.PIC","CCP.PIC","contents "&q&""e&"&q&"TOC"&q&""e"] 
  13.   
  14. --  set gCBL to [:]
  15. --  set sc = script "sbc"
  16. --  addprop gCBL, 9, [sc, 9, "CT5R.PIC", "CT5P.PIC","myGo "&q&""e&"&q&"O"&q&""e"] 
  17. --  addprop gCBL, 10, [sc,10,"CC4R.PIC","CC4P.PIC","myGo "&q&""e&"&q&"T"&q&""e"]
  18. --  addprop gCBL, 11, [sc,11,"CC3R.PIC","CC3P.PIC","myGo "&q&""e&"&q&"P"&q&""e"] 
  19. --  addprop gCBL, 12, [sc,12,"CC6R.PIC","CC6P.PIC","myGo "&q&""e&"&q&"S"&q&""e"] 
  20. --  addprop gCBL, 13, [sc,13,"CC1R.PIC","CC1P.PIC","myGo "&q&""e&"&q&"M"&q&""e"] 
  21. --  addprop gCBL, 14,[sc,14,"CC2R.PIC","CC2P.PIC","myGo "&q&""e&"&q&"U"&q&""e"] 
  22. --  addprop gCBL, 8,[sc,8,"CCFR.PIC","CCFP.PIC","playHelp "&q&""e&"&q&"TOC"&q&""e"]  
  23.   
  24.   -- instantiate these right away...
  25.   
  26. --  repeat with i = 8 to 14
  27. --    set it = getProp(gCBL, i)
  28. --    set it = string(it)
  29. --    set len = the length of it
  30. --    set it = char 2 to len - 2 of it
  31. --    set str = "set it = birth("  & it & ")"
  32. --    do str
  33. --    --put ">>> " &str
  34. --    setProp gCBL, i, it
  35. --  end repeat
  36.   
  37.   
  38.   
  39. --  set gMBL to [:]
  40.   set sc = script "sbt"
  41. --  addprop gMBL, 2,[sc,2,"CM4R.PIC","CM4P.PIC","moGo "&q&""e&"&q&"FOS"&q&""e"]  --"Forever 4 U"
  42. --  addprop gMBL, 3,[sc,3,"CM1R.PIC","CM1P.PIC","moGo "&q&""e&"&q&"COS"&q&""e"]  --"Comets"
  43. --  addprop gMBL, 4,[sc,4,"CM3R.PIC","CM3P.PIC","moGo "&q&""e&"&q&"SPS"&q&""e"]  --"Spazio"
  44. --  addprop gMBL, 5,[sc,5,"CM2R.PIC","CM2P.PIC","moGo "&q&""e&"&q&"CRS"&q&""e"]  --"Crisis"
  45. --  addprop gMBL, 6,[sc,6,"CMSR.PIC","CMSP.PIC","myGo "&q&""e&"&q&"O"&q&""e"]  --"Screening"
  46. --  addprop gMBL, 7,[sc,7,"CMFR.PIC","CMFP.PIC","playHelp "&q&""e&"&q&"M"&q&""e"] 
  47.   
  48. --  set gOBL to [:]
  49. --  addprop gOBL, 2,[sc,2,"CO1R.PIC","CO1P.PIC","myGo "&q&""e&"&q&"ON"&q&""e"] --"Nebulae etc"
  50. --  addprop gOBL, 3,[sc,3,"CO2R.PIC","CO2P.PIC","myGo "&q&""e&"&q&"OS"&q&""e"] --"stars"
  51. --  addprop gOBL, 4,[sc,4,"CO3R.PIC","CO3P.PIC","myGo "&q&""e&"&q&"OQ"&q&""e"] --"quasars"
  52. --  addprop gOBL, 5,[sc,5,"CO4R.PIC","CO4P.PIC","myGo "&q&""e&"&q&"OO"&q&""e"]  --"solar system"
  53. --  addprop gOBL, 6,[sc,6,"CO5R.PIC","CO5P.PIC","myGo "&q&""e&"&q&"OG"&q&""e"]  --"galaxies"
  54. --  addprop gOBL, 7,[sc,7,"COFR.PIC","COFP.PIC","playHelp "&q&""e&"&q&"O"&q&""e"]
  55.   
  56.   --  addprop gCBL, 2, birth(script "sbc",2,"CT5R.PIC","CT5P.PIC","myGo "&q&"O"&q)
  57. --  
  58. --  set gONBL to [:] --ôNebulae & Supernova Remnantsö
  59. --  addprop gONBL, 9,[sc,9,"CO1AR.PIC","CO1AR.PIC",¼
  60. --"myPop 9,"&q&""e&"&q&"Nebulae"&q&""e"]
  61. --  addprop gONBL, 10,[sc,10,"CO1BR.PIC","CO1BR.PIC",¼
  62. --"myPop 10,"&q&""e&"&q&"Supernova Remnants"&q&""e"]
  63. --  addprop gONBL, 11,[sc,11,"CO1CR.PIC","CO1CR.PIC",¼
  64. --"myPop 11,"&q&""e&"&q&"Planetary Nebulae"&q&""e"]
  65.   
  66. --  set gOSBL to [:] --ôStarsö
  67. --  addprop gOSBL, 9,[sc,9,"CO2AR.PIC","CO2AR.PIC",¼
  68. --"myPop 9,"&q&""e&"&q&"Globular Star Clusters"&q&""e"]
  69. --  addprop gOSBL, 10,[sc,10,"CO2BR.PIC","CO2BR.PIC",¼
  70. --"myPop 10,"&q&""e&"&q&"Open Star Clusters"&q&""e"]
  71. --  addprop gOSBL, 11,[sc,11,"CO2CR.PIC","CO2CR.PIC",¼
  72. --"myPop 11,"&q&""e&"&q&"Individual Stars"&q&""e"]
  73.   
  74. --  set gOQBL to [:] --ôQuasarsö
  75. --  addprop gOQBL, 9,[sc,9,"CO3AR.PIC","CO3AR.PIC",¼
  76. --"myPop 9,"&q&""e&"&q&"Quasars"&q&""e"]
  77. --  addprop gOQBL, 10,[sc,10,"CO3BR.PIC","CO3BR.PIC",¼
  78. --"myPop 10,"&q&""e&"&q&"Quasars Galaxy Interaction"&q&""e"]
  79.   
  80. --  set gOOBL to [:] --ôSolar Systemö
  81. --  addprop gOOBL, 9,[sc,9,"CO4AR.PIC","CO4AR.PIC",¼
  82. --"myPop 9,"&q&""e&"&q&"Sun"&q&""e"]
  83. --  addprop gOOBL, 10,[sc,10,"CO4BR.PIC","CO4BR.PIC",¼
  84. --"myPop 10,"&q&""e&"&q&"Planets & Moons"&q&""e"]
  85. --  addprop gOOBL, 11,[sc,11,"CO4CR.PIC","CO4CR.PIC",¼
  86. --"myPop 11,"&q&""e&"&q&"Comets"&q&""e"]
  87.   
  88. --  set gOGBL to [:] --ôGalaxiesö
  89. --  addprop gOGBL, 8,[sc,8,"CO5AR.PIC","CO5AR.PIC",¼
  90. --"myPop 8,"&q&""e&"&q&"Normal"&q&""e"]
  91. --  addprop gOGBL, 9,[sc,9,"CO5BR.PIC","CO5BR.PIC",¼
  92. --"myPop 9,"&q&""e&"&q&"Barred"&q&""e"]
  93. --  addprop gOGBL, 10,[sc,10,"CO5CR.PIC","CO5CR.PIC",¼
  94. --"myPop 10,"&q&""e&"&q&"Mixed"&q&""e"]
  95. --  addprop gOGBL, 11,[sc,11,"CO5DR.PIC","CO5DR.PIC",¼
  96. --"myPop 11,"&q&""e&"&q&"Elliptical"&q&""e"]
  97. --  addprop gOGBL, 12,[sc,12,"CO5ER.PIC","CO5ER.PIC",¼
  98. --"myPop 12,"&q&""e&"&q&"Irregular"&q&""e"]
  99. --  addprop gOGBL, 13,[sc,13,"CO5FR.PIC","CO5FR.PIC",¼
  100. --"myPop 13,"&q&""e&"&q&"Radio"&q&""e"]
  101. --  addprop gOGBL, 14,[sc,14,"CO5GR.PIC","CO5GR.PIC",¼
  102. --"myPop 14,"&q&""e&"&q&"Interacting"&q&""e"]
  103. --  addprop gOGBL, 15,[sc,15,"CO5HR.PIC","CO5HR.PIC",¼
  104. --"myPop 15,"&q&""e&"&q&"Clusters"&q&""e"]
  105.   
  106. --  set gPBL to [:]
  107. --  addprop gPBL, 4,[sc,4,"CPFR.PIC","CPFR.PIC","playHelp "&q&""e&"&q&"P"&q&""e"]
  108. --  --  addprop gPBL, 4,[sc,4,"CTR.PIC","CTP.PIC","trace "&q&""e&"&q&"Poetry of TOC"&q&""e"]
  109. --  addprop gPBL, 5,[sc,5,"CPA2R.PIC","CPA2P.PIC","poGo "&q&""e&"&q&"prev"&q&""e"]
  110. --  addprop gPBL, 6,[sc,6,"CPA1R.PIC","CPA1P.PIC","poGo "&q&""e&"&q&"next"&q&""e"]
  111. --  
  112. --  set gSBL to [:]
  113. --  addprop gSBL, 2,[sc,2,"CS1R.PIC","CS1P.PIC","goGo "&q&""e&"&q&"SS"&q&""e"] --"Solar System"
  114. --  addprop gSBL, 3,[sc,3,"CS2R.PIC","CS2P.PIC","goGo "&q&""e&"&q&"NS"&q&""e"] --"Night Sky"
  115. --  addprop gSBL, 4,[sc,4,"CSFR.PIC","CSFP.PIC","playHelp "&q&""e&"&q&"S"&q&""e"]
  116. --  
  117. --  set gTBL to [:]
  118. --  addprop gTBL, 2,[sc,2,"CT1R.PIC","CT1P.PIC","toGo "&q&""e&"&q&"EMS"&q&""e"] --"EM Spec"
  119. --  addprop gTBL, 3,[sc,3,"CT2R.PIC","CT2P.PIC","toGo "&q&""e&"&q&"CLS"&q&""e"] --"Clusters"
  120. --  addprop gTBL, 4,[sc,4,"CT3R.PIC","CT3P.PIC","toGo "&q&""e&"&q&"MWS"&q&""e"] --"Milky"
  121. --  addprop gTBL, 5,[sc,5,"CT4R.PIC","CT4P.PIC","toGo "&q&""e&"&q&"SSS"&q&""e"] --"Solar"
  122. --  addprop gTBL, 6,[sc,6,"CTFR.PIC","CTFP.PIC","playHelp "&q&""e&"&q&"T"&q&""e"]
  123. --  
  124. --  set gUBL to [:]
  125. --  addprop gUBL, 2,[sc,2,"CU10R.PIC","CU10P.PIC","muGo "&q&""e&"&q&"COMETS"&q&""e"] --comets
  126. --  addprop gUBL, 3,[sc,3,"CU11R.PIC","CU11P.PIC","muGo "&q&""e&"&q&"STELLAR"&q&""e"]--stell hart
  127. --  addprop gUBL, 4,[sc,4,"CU12R.PIC","CU12P.PIC","muGo "&q&""e&"&q&"FOREVER"&q&""e"] --forever 4U
  128. --  addprop gUBL, 5,[sc,5,"CU13R.PIC","CU13P.PIC","muGo "&q&""e&"&q&"SPAZIO"&q&""e"] --spazio
  129. --  addprop gUBL, 6,[sc,6,"CU1R.PIC","CU1P.PIC","muGo "&q&""e&"&q&"ORBITAL"&q&""e"] --orbital mind
  130. --  addprop gUBL, 7,[sc,7,"CU2R.PIC","CU2P.PIC","muGo "&q&""e&"&q&"IMPULSES"&q&""e"]--impulses
  131. --  addprop gUBL, 8,[sc,8,"CU3R.PIC","CU3P.PIC","muGo "&q&""e&"&q&"CONCERT"&q&""e"] --concert
  132. --  addprop gUBL, 9,[sc,9,"CU4R.PIC","CU4P.PIC","muGo "&q&""e&"&q&"SPHERICAL"&q&""e"] --spherical
  133. --  addprop gUBL, 10,[sc,10,"CU5R.PIC","CU5P.PIC","muGo "&q&""e&"&q&"COSMIC"&q&""e"] --cosmic
  134. --  addprop gUBL, 11,[sc,11,"CU6R.PIC","CU6P.PIC","muGo "&q&""e&"&q&"CRISIS"&q&""e"] --crisis
  135. --  addprop gUBL, 12,[sc,12,"CU7R.PIC","CU7P.PIC","muGo "&q&""e&"&q&"SPIRALING"&q&""e"] --spriraling
  136. --  addprop gUBL, 13,[sc,13,"CU8R.PIC","CU8P.PIC","muGo "&q&""e&"&q&"MISTICO"&q&""e"] --mistico
  137. --  addprop gUBL, 14,[sc,14,"CU9R.PIC","CU9P.PIC","muGo "&q&""e&"&q&"VOICES"&q&""e"] --voices
  138. --  addprop gUBL, 15,[sc,15,"CUFR.PIC","CUFP.PIC","playHelp"&q&""e&"&q&"U"&q&""e"]
  139. --  
  140. --  
  141.   --sort gContRetrace 
  142.  -- sort gCBL
  143.  -- sort gMBL
  144.   --sort gOBL
  145.   --sort gOGBL
  146.   --sort gONBL
  147.   --sort gOSBL
  148.   --sort gOQBL
  149.   --sort gOOBL
  150.   --sort gPBL
  151.   --sort gSBL
  152.   --sort gTBL
  153.   --sort gUBL
  154. end setContentsButtons
  155.